Top 10k strings from Graphics Demo (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /
Back to the directory listing
1 8060 END DEFine p_pan 1 8050 END IF 1 8040 lask=0 1 8030 IF v=1:PAN p:ELSE :SCROLL INT(p/1.65) 1 8020 IF lask>l THEN 1 8010 lask=lask+1 1 8000 DEFine PROCedure p_pan(lask,l,p) 1 7130 END DEFine p_triangle 1 7120 LINE x3,y3 TO x1,y1 1 7110 LINE x2,y2 TO x3,y3 1 7100 LINE x1,y1 TO x2,y2 1 7090 INK RND(0 TO 7) 1 7080 y3=y1+RND(-30 TO 30) 1 7070 x3=x1+RND(-30 TO 30) 1 7060 y2=y1+RND(-30 TO 30) 1 7050 x2=x1+RND(-30 TO 30) 1 7040 y1=RND(0 TO 100) 1 7030 x1=RND(0 TO 165) 1 7020 FILL 0 1 7010 LOCal x1,y1,x2,y2,x3,x3 1 7000 DEFine PROCedure p_triangle 1 6130 END DEFine p_square 1 6120 LINE x,y+h TO x,y 1 6110 LINE x+w,y+h TO x,y+h 1 6100 LINE x+w,y TO x+w,y+h 1 6090 LINE x,y TO x+w,y 1 6080 INK c 1 6070 c=RND(0 TO 7) 1 6060 y=RND(0 TO 100) 1 6050 x=RND(0 TO 165) 1 6040 h=RND(1 TO 40) 1 6030 w=RND(1 TO 40) 1 6020 FILL 0 1 6010 LOCal w,h,x,y,c 1 6000 DEFine PROCedure p_square 1 5090 END DEFine p_arc 1 5080 ARC x1,y1 TO x2,y2,a 1 5070 a=(2*RND-1)*PI 1 5060 y2=RND(0 TO 100) 1 5050 x2=RND(0 TO 165) 1 5040 y1=RND(0 TO 100) 1 5030 x1=RND(0 TO 165) 1 5020 FILL 0 1 5010 LOCal x1,y1,x2,y2,a 1 5000 DEFine PROCedure p_arc 1 420 p_init 1 4090 END DEFine p_block 1 4080 BLOCK w,h,x,y,c 1 4070 c=RND(0 TO 7) 1 4060 y=RND(0 TO 170) 1 4050 x=RND(0 TO 418) 1 4040 h=RND(1 TO 30) 1 4030 w=RND(1 TO 30) 1 4020 FILL 0 1 4010 LOCal w,h,x,y,c 1 4000 DEFine PROCedure p_block 1 390 END REPeat draw 1 380 END SELect 1 370 p=RND(2 TO 25) 1 360 l=RND(1 TO 5) 1 350 IF v1=3 THEN v=0 1 340 IF v1=2 THEN v=3 1 330 IF v1=1 THEN v=2 1 320 IF v1=0 THEN v=1 1 310 v1 = v 1 3070 END DEFine p_point 1 3060 POINT x,y 1 3050 y=RND(0 TO 100) 1 3040 x=RND(0 TO 165) 1 3030 INK RND(0 TO 7) 1 3020 FILL 0 1 3010 LOCal x,y 1 3000 DEFine PROCedure p_point 1 300 p_wait:CLS 1 290 ON r=REMAINDER 1 280 ON r=.9 TO .995:p_triangle 1 270 ON r=.8 TO .9:p_square 1 260 ON r=.7 TO .8:p_arc 1 250 ON r=.6 TO .7:p_block 1 240 ON r=.5 TO .6:p_circle 1 230 ON r= 0 TO .5:p_point:p_point 1 220 SELect ON r 1 2150 END DEFine p_circle 1 2140 CIRCLE x,y,r,e,a 1 2130 END IF 1 2120 r=RND(2 TO 50) 1 2110 FILL 0 1 2100 ELSE 1 210 IF v=3 AND RND>.99:RECOL 1,2,3,4,5,6,7,0 1 2090 r=RND(2 TO 25) 1 2080 FILL 1 1 2070 IF RND>.75 THEN 1 2060 a=2*PI*RND 1 2050 e=RND 1 2040 y=RND(20 TO 80) 1 2030 x=RND(20 TO 145) 1 2020 INK RND(0 TO 7) 1 20160 END DEFine p_title 1 20150 PAUSE 1 20140 PRINT"To exit press again" 1 20130 AT 15,10:INK 5 1 20120 PRINT"To start press any key" 1 20110 AT 13,10:INK 2 1 20100 PRINT tpvm$ 1 2010 LOCal x,y,r,e,a 1 20090 AT 11,10:INK 1 1 20080 PRINT"by Timo Salmi" 1 20070 AT 9,10:INK 4 1 20060 PRINT ohj$ 1 20050 AT 7,10:INK 3 1 20040 PAPER 0:CLS 1 20030 WINDOW 513,256,0,0 1 20020 FLASH 0:PAPER 0:CLS 1 20010 WINDOW 513,256,0,0 1 20000 DEFine PROCedure p_title(ohj$,tpvm$) 1 2000 DEFine PROCedure p_circle 1 200 r=RND 1 190 IF v=1 OR v=2:p_pan lask,l,p 1 180 IF INKEY$<>"" THEN EXIT draw 1 170 REPeat draw 1 150 lask=0 1 140 SCALE 100,0,0 1 11030 END DEFine p_wait 1 11020 FOR i=1 TO 1000:j=i+1 1 11010 LOCal i,j 1 11000 DEFine PROCedure p_wait 1 110 p_title "G r a p h d e m o","22.09.85" 1 10110 END DEFine p_init 1 10100 CLS 1 10090 INK 7 1 10080 PAPER 2 1 10070 WINDOW 448,200,32,16 1 10060 SCALE 100,0,0 1 10050 FLASH 0 1 10040 FILL 0 1 10030 CLS 1 10020 PAPER 0 1 10010 WINDOW 513,256,0,0 1 10000 DEFine PROCedure p_init 1 100 CLEAR:bon=-1